home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 3780.ZIP / VGALIB10.ZIP / DECLARE.BAS < prev    next >
BASIC Source File  |  1991-08-21  |  2KB  |  53 lines
  1. DEFINT A-Z
  2.  
  3.  
  4. '--- Graphic primitives for the 320x200 mode
  5.      DECLARE SUB Set320x200 ()
  6.      DECLARE SUB PSET200 (BYVAL X%, BYVAL Y%, BYVAL Colr%)
  7.      DECLARE SUB LINE200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
  8.      DECLARE SUB XLINE200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
  9.      DECLARE SUB BOX200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
  10.      DECLARE SUB BoxF200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
  11.      DECLARE SUB CIRCLE200 (BYVAL XCenter%, BYVAL YCenter%, BYVAL Radius%, BYVAL CircleColor%)
  12.  
  13.      DECLARE FUNCTION PONIT200 (X%, Y%)
  14.  
  15. '--- Graphic primitives for the 320x240 & 320x400 modes
  16.      DECLARE SUB Set320x240 ()
  17.      DECLARE SUB Set320x400 ()
  18.      DECLARE SUB PSET240 (BYVAL X%, BYVAL Y%, BYVAL Colr%)
  19.      DECLARE SUB LINE240 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
  20.      DECLARE SUB BOX240 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
  21.      DECLARE SUB BOXF240 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Colr%)
  22.      DECLARE SUB CIRCLE240 (BYVAL XCenter%, BYVAL YCenter%, BYVAL Radius%, BYVAL CircleColor%)
  23.  
  24.      DECLARE FUNCTION PONIT240 (X%, Y%)
  25.  
  26. '--- GET/PUT Commands for the 320x200 mode
  27.      DECLARE SUB Get200 (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, SEG Array AS ANY)
  28.      DECLARE SUB Put200 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY, BYVAL Attr%)
  29.      DECLARE SUB TPut200 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY)
  30.      DECLARE SUB RPUT200 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY)
  31.  
  32. '--- GET/PUT Commands for the 320x240 & 320x400 modes
  33.      DECLARE SUB Put240 (BYVAL X1%, BYVAL Y1%, SEG Array AS ANY)
  34.  
  35. '--- Virtual Screen Commands
  36.      DECLARE SUB CreateVirtualScreen (SEG Array AS ANY, BYVAL NumCols%, BYVAL NumRows%)
  37.      DECLARE SUB VPut (SEG Array1 AS ANY, BYVAL X%, BYVAL Y%, SEG Array2 AS ANY)
  38.      DECLARE SUB VTPut (SEG Array1 AS ANY, BYVAL X%, BYVAL Y%, SEG Array2 AS ANY)
  39.      DECLARE SUB VGET (SEG Array1 AS ANY, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, SEG Array2 AS ANY)
  40.  
  41. '--- Palette Commands
  42.      DECLARE SUB SavePal (SEG Array AS ANY)
  43.      DECLARE SUB RestorePal (SEG Array AS ANY)
  44.  
  45. '--- Font Commands
  46.      DECLARE SUB SetFont200 (SEG Array AS ANY)
  47.      DECLARE SUB SetCursor (SEG Array AS ANY)
  48.      DECLARE SUB Print200 (BYVAL X%, BYVAL Y%, Text$, BYVAL Colr%)
  49.  
  50. '--- Misc.
  51.      DECLARE SUB Set80x25 ()
  52.  
  53.